Aminet 6/Aminet 6 - June 1995.iso/Aminet/dev/gcc/libnixV0_8.lha/gnu/libnix-sources.lha/sources/math/stdio/isnan.c

Text File | 1994-12-18 | 129 b | 6 lines

int isnan(double a)
{
  unsigned long *b=(unsigned long *)&a;
  return (b[0]&0x7ff00000)==0x7ff00000&&((b[0]&0xfffff)||b[1]);
}